-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 2580326711
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2636
-- card count: 127
-- first card id: 4203
-- list block id: 36035
-- print block id: 35420
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 194720 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  Global Priorlevel
  get the userlevel
  put the userlevel into priorlevel
  set the userlevel to 2
  hide menubar
  if the version of Hypercard < 1.2 then
    answer"Sorry,HyperCard 1.2 or Later is Required."
    go home
  end if

  lock screen
  hide card picture
  unlock screen with dissolve slowly
  lock screen
  show card picture
  unlock screen with dissolve slowly

  ask"Password ?(Blank For Limited Access)"
  if it = 17745230 then
    set cantmodify of this stack to false
    show menubar
    set the userlevel to 5
    lock screen
    go to bg id"2636"
    show bg button id"26"
    show bg button id"22"
    show bg button id"31"
    show bg button id"30"
    go to card id"4203"
    unlock screen else
    lock screen
    go to bg id"2636"
    hide bg button id"26"
    hide bg button id"22"
    hide bg button id"31"
    hide bg button id"30"
    go to card id"4203"
    unlock screen
    set cantmodify of this stack to true
    exit openStack
  end if
end openStack

on closestack
  if freesize of this stack≥ size of this stack/4 then
    put"Compacting Stack..."
    domenu"Compact Stack"
    put empty
    hide msg
  end if
end closestack